home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
XREAD001.ZIP
/
XREAD001.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1997-01-24
|
10KB
|
556 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
String STRING021
;------------------------------------------------------------------------------
Tokenize TokenStr()
If (TokCount() > 0) Then
KbdStuff "R;" + GetToken() + Chr(13)
End
Endif
If (Exist(PPEPath() + "XREAD001.PCB")) Goto LABEL001
FCreate 2, PPEPath() + "XREAD001.PCB", 2, 0
FPutLn 2, "@X07x@X0Fpress@X08.@X07r@X0Fead@X08.@X07m@X0Fsg@X07 "
FPutLn 2, "@X0C--@X06--@X0C--@X06-----@X0C-@X06-----------------@X07 "
FPutLn 2, ""
FPutLn 2, "@X08"
FPutLn 2, "@X0C----@X06--@X0C--@X06----@X0C-@X06----------------@X07 "
FPutLn 2, "@X03u@X0Bser@X08 @X03i@X0Bnput@X08 --@X07 "
FClose 2
:LABEL001
If (!Exist(PPEPath() + "XREAD001.CFG")) FCreate 1, PPEPath() + "XREAD001.CFG", 2, 0
FPutLn 1, "@X3B"
FPutLn 1, "@X08"
FPutLn 1, "15 6"
FPutLn 1, "1 3"
FPutLn 1, "YES"
FPutLn 1, ""
FPutLn 1, "Configuration File!"
FPutLn 1, "----------------------------------------------------------------------------"
FPutLn 1, "Line One: Colour of Selected Lightbar"
FPutLn 1, "Line Two: Coloir of Unselected Lightbar"
FPutLn 1, "Line Three: x/y co-ord of users input"
FPutLn 1, "Line Four: x/y co-ord of the lightbar"
FPutLn 1, "Line Five: If YES, then the PPE will use both xpert/ammature modes"
FPutLn 1, " if this is NO, then the PPE will only use the ammature mode"
FClose 1
FOpen 3, PPEPath() + "XREAD001.CFG", 2, 0
FGet 3, STRING004
FGet 3, STRING005
FGet 3, STRING006
FGet 3, STRING007
FGet 3, STRING020
FGet 3, STRING021
FClose 3
If (Upper(STRING020) == "YES") Then
STRING001 = " expert read command prompt "
STRING002 = " amature read utility "
Print "@POFF@@CLS@"
If (!Exist(PPEPath() + "XREAD001.PCB")) PrintLn "@X0Cerror! @X04- XRead.PPE could not find its graphics file `XREAD001.PCB'"
PrintLn "@X08Please consult with your system operator asap!"
PrintLn ""
Wait
End
DispFile PPEPath() + "XREAD001.PCB", 1
Tokenize STRING006
INTEGER001 = GetToken()
INTEGER002 = GetToken()
Tokenize STRING007
INTEGER003 = GetToken()
INTEGER004 = GetToken()
:LABEL002
AnsiPos INTEGER003, INTEGER004
Print STRING004 + STRING001
AnsiPos INTEGER003, INTEGER004 + 1
Print STRING005 + STRING002
AnsiPos INTEGER001, INTEGER002
Color 0
Print " "
Backup 1
:LABEL003
STRING003 = ""
While ((STRING003 == "")) STRING003 = Inkey()
If (STRING003 == Chr(27)) Print "@X08esc "
Color 0
Print " "
Backup 1
Delay 5
End
While ((STRING003 == "DOWN")) Print "@X08 down "
Color 0
Print " "
Backup 1
Goto LABEL004
While ((STRING003 == "UP")) Print "@X08 up "
Color 0
Print " "
Backup 1
Goto LABEL004
While ((STRING003 == Chr(13))) Print "@X08 enter "
Color 0
Print " "
Backup 1
Delay 3
Goto LABEL006
Goto LABEL003
:LABEL004
AnsiPos INTEGER003, INTEGER004
Print STRING005 + STRING001
AnsiPos INTEGER003, INTEGER004 + 1
Print STRING004 + STRING002
AnsiPos INTEGER001, INTEGER002
Color 0
Print " "
Backup 1
:LABEL005
STRING003 = ""
While ((STRING003 == "")) STRING003 = Inkey()
If (STRING003 == Chr(27)) Print "@X08esc "
Color 0
Print " "
Backup 1
Delay 5
End
While ((STRING003 == "DOWN")) Print "@X08 down "
Color 0
Print " "
Backup 1
Goto LABEL002
While ((STRING003 == "UP")) Print "@X08 up "
Color 0
Print " "
Backup 1
Goto LABEL002
While ((STRING003 == Chr(13))) Print "@X08 enter "
Color 0
Print " "
Backup 1
Delay 3
Goto LABEL007
Goto LABEL005
:LABEL006
AnsiPos 1, 8
KbdStuff "R" + Chr(13)
End
Endif
:LABEL007
Print "@POFF@@CLS@"
If (Exist(PPEPath() + "XREAD2.PCB")) Delete PPEPath() + "XREAD2.PCB"
If (!Exist(PPEPath() + "Xread2.pcb")) FCreate 1, PPEPath() + "XREAD2.PCB", 2, 0
FPutLn 1, "@X08 ──────────────────────────────────────────────────────────────────── @X07 "
FPutLn 1, " @X08│@X40 @X4C xpress amature read msg utility! @X08│ @X07 "
FPutLn 1, " @X08─────────────────────────────────────────────────────────────────@X07 "
FPutLn 1, " @X08│@X07 @X08│@X07 "
FPutLn 1, " @X08│@X07 @X08│@X07 "
FPutLn 1, " @X08│@X07 @X08│@X07 "
FPutLn 1, " @X08│@X07 @X08│@X07 "
FPutLn 1, " @X08│@X07 @X08│@X07 "
FPutLn 1, " @X08│@X07 @X08│@X07 "
FPutLn 1, " @X08│@X07 @X08│@X07 "
FPutLn 1, " @X08│@X07 @X08│@X07 "
FPutLn 1, " @X08│@X07 @X08│@X07 "
FPutLn 1, " @X08│@X07 @X08│@X07 "
FPutLn 1, " @X08│@X07 @X08│@X07 "
FPutLn 1, " @X08│@X07 @X08│@X07 "
FPutLn 1, "@X08 @X07 @X08───────────────────────────────────────────────────────────────────@X07 @X08 @X07 "
FPutLn 1, ""
FClose 1
DispFile PPEPath() + "Xread2.pcb", 1
STRING008 = " Scan all selected conferences "
STRING009 = " Scan all conferences that you have access to "
STRING010 = " Read messages from a user "
STRING011 = " New Messages by date "
STRING012 = " Read new messages "
STRING013 = " Read messages to a user "
STRING014 = " Search messages for specific text "
STRING015 = " Read unread messages "
STRING016 = " Search messages to or from a particular user "
STRING017 = " Scan messages in conferences where you have mail waiting @X07"
STRING018 = " Read messages addressed to you "
STRING019 = " Read messages to you or to ALL "
AnsiPos 11, 6
Print STRING005 + STRING010
AnsiPos 11, 7
Print STRING005 + STRING011
AnsiPos 11, 8
Print STRING005 + STRING012
AnsiPos 11, 9
Print STRING005 + STRING013
AnsiPos 11, 10
Print STRING005 + STRING014
AnsiPos 11, 11
Print STRING005 + STRING015
AnsiPos 11, 12
Print STRING005 + STRING016
AnsiPos 11, 13
Print STRING005 + STRING017
AnsiPos 11, 14
Print STRING005 + STRING018
:LABEL008
AnsiPos 11, 4
Print STRING004 + STRING008
AnsiPos 11, 5
Print STRING005 + STRING009
AnsiPos 11, 15
Print STRING005 + STRING019
Color 0
Print " "
Backup 1
:LABEL009
STRING003 = ""
While ((STRING003 == "")) STRING003 = Inkey()
If (STRING003 == Chr(13)) Goto LABEL032
If (STRING003 == Chr(27)) End
If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL010
If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL030
Goto LABEL009
:LABEL010
AnsiPos 11, 4
Print STRING005 + STRING008
AnsiPos 11, 5
Print STRING004 + STRING009
AnsiPos 11, 6
Print STRING005 + STRING010
Color 0
Print " "
Backup 1
:LABEL011
STRING003 = ""
While ((STRING003 == "")) STRING003 = Inkey()
If (STRING003 == Chr(13)) Goto LABEL033
If (STRING003 == Chr(27)) End
If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL012
If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL008
Goto LABEL011
:LABEL012
AnsiPos 11, 5
Print STRING005 + STRING009
AnsiPos 11, 6
Print STRING004 + STRING010
AnsiPos 11, 7
Print STRING005 + STRING011
Color 0
Print " "
Backup 1
:LABEL013
STRING003 = ""
While ((STRING003 == "")) STRING003 = Inkey()
If (STRING003 == Chr(13)) Goto LABEL034
If (STRING003 == Chr(27)) End
If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL014
If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL010
Goto LABEL013
:LABEL014
AnsiPos 11, 6
Print STRING005 + STRING010
AnsiPos 11, 7
Print STRING004 + STRING011
AnsiPos 11, 8
Print STRING005 + STRING012
Color 0
Print " "
Backup 1
:LABEL015
STRING003 = ""
While ((STRING003 == "")) STRING003 = Inkey()
If (STRING003 == Chr(13)) Goto LABEL035
If (STRING003 == Chr(27)) End
If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL016
If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL012
Goto LABEL015
:LABEL016
AnsiPos 11, 7
Print STRING005 + STRING011
AnsiPos 11, 8
Print STRING004 + STRING012
AnsiPos 11, 9
Print STRING005 + STRING013
Color 0
Print " "
Backup 1
:LABEL017
STRING003 = ""
While ((STRING003 == "")) STRING003 = Inkey()
If (STRING003 == Chr(13)) Goto LABEL036
If (STRING003 == Chr(27)) End
If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL018
If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL014
Goto LABEL017
:LABEL018
AnsiPos 11, 8
Print STRING005 + STRING012
AnsiPos 11, 9
Print STRING004 + STRING013
AnsiPos 11, 10
Print STRING005 + STRING014
Color 0
Print " "
Backup 1
:LABEL019
STRING003 = ""
While ((STRING003 == "")) STRING003 = Inkey()
If (STRING003 == Chr(13)) Goto LABEL037
If (STRING003 == Chr(27)) End
If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL020
If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL016
Goto LABEL019
:LABEL020
AnsiPos 11, 9
Print STRING005 + STRING013
AnsiPos 11, 10
Print STRING004 + STRING014
AnsiPos 11, 11
Print STRING005 + STRING015
Color 0
Print " "
Backup 1
:LABEL021
STRING003 = ""
While ((STRING003 == "")) STRING003 = Inkey()
If (STRING003 == Chr(13)) Goto LABEL038
If (STRING003 == Chr(27)) End
If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL022
If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL018
Goto LABEL021
:LABEL022
AnsiPos 11, 10
Print STRING005 + STRING014
AnsiPos 11, 11
Print STRING004 + STRING015
AnsiPos 11, 12
Print STRING005 + STRING016
Color 0
Print " "
Backup 1
:LABEL023
STRING003 = ""
While ((STRING003 == "")) STRING003 = Inkey()
If (STRING003 == Chr(13)) Goto LABEL039
If (STRING003 == Chr(27)) End
If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL024
If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL020
Goto LABEL023
:LABEL024
AnsiPos 11, 11
Print STRING005 + STRING015
AnsiPos 11, 12
Print STRING004 + STRING016
AnsiPos 11, 13
Print STRING005 + STRING017
Color 0
Print " "
Backup 1
:LABEL025
STRING003 = ""
While ((STRING003 == "")) STRING003 = Inkey()
If (STRING003 == Chr(13)) Goto LABEL040
If (STRING003 == Chr(27)) End
If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL026
If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL022
Goto LABEL025
:LABEL026
AnsiPos 11, 12
Print STRING005 + STRING016
AnsiPos 11, 13
Print STRING004 + STRING017
AnsiPos 11, 14
Print STRING005 + STRING018
Color 0
Print " "
Backup 1
:LABEL027
STRING003 = ""
While ((STRING003 == "")) STRING003 = Inkey()
If (STRING003 == Chr(13)) Goto LABEL041
If (STRING003 == Chr(27)) End
If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL028
If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL024
Goto LABEL027
:LABEL028
AnsiPos 11, 13
Print STRING005 + STRING017
AnsiPos 11, 14
Print STRING004 + STRING018
AnsiPos 11, 15
Print STRING005 + STRING019
Color 0
Print " "
Backup 1
:LABEL029
STRING003 = ""
While ((STRING003 == "")) STRING003 = Inkey()
If (STRING003 == Chr(13)) Goto LABEL042
If (STRING003 == Chr(27)) End
If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL030
If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL026
Goto LABEL029
:LABEL030
AnsiPos 11, 14
Print STRING005 + STRING018
AnsiPos 11, 15
Print STRING004 + STRING019
AnsiPos 11, 4
Print STRING005 + STRING008
Color 0
Print " "
Backup 1
:LABEL031
STRING003 = ""
While ((STRING003 == "")) STRING003 = Inkey()
If (STRING003 == Chr(13)) Goto LABEL043
If (STRING003 == Chr(27)) End
If ((STRING003 == "DOWN") || (STRING003 == "2")) Goto LABEL008
If ((STRING003 == "UP") || (STRING003 == "8")) Goto LABEL028
Goto LABEL031
:LABEL032
Cls
KbdStuff "R;A" + Chr(13)
End
:LABEL033
Cls
KbdStuff "R;ALL" + Chr(13)
End
:LABEL034
Cls
KbdStuff "R;FROM" + Chr(13)
End
:LABEL035
Cls
KbdStuff "R;N" + Chr(13)
End
:LABEL036
Cls
KbdStuff "R;S" + Chr(13)
End
:LABEL037
Cls
KbdStuff "R;TO" + Chr(13)
End
:LABEL038
Cls
KbdStuff "R;TS" + Chr(13)
End
:LABEL039
Cls
KbdStuff "R;U" + Chr(13)
End
:LABEL040
Cls
KbdStuff "R USER"
End
:LABEL041
Cls
KbdStuff "R;WAIT" + Chr(13)
End
:LABEL042
Cls
KbdStuff "R;Y" + Chr(13)
End
:LABEL043
Cls
KbdStuff "R;YA" + Chr(13)
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 29 End
; 12 Cls
; 1 Wait
; 22 Color
; 73 Goto
; 46 Let
; 81 Print
; 3 PrintLn
; 77 If
; 2 DispFile
; 3 FCreate
; 1 FOpen
; 4 FClose
; 6 FGet
; 37 FPutLn
; 1 Delete
; 4 Delay
; 3 Tokenize
; 14 KbdStuff
; 52 AnsiPos
; 22 Backup
;
;
; ■ Functions used :
;
; 77 +
; 95 ==
; 1 >
; 5 !
; 24 ||
; 1 Upper()
; 41 Chr()
; 14 Inkey()
; 12 PPEPath()
; 5 GetToken()
; 5 Exist()
; 1 TokenStr()
; 1 TokCount()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 2 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------